unit SearchPeople;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dRoot, DB, StdCtrls, Buttons, ExtCtrls, ComCtrls, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxControls, cxGridCustomView, cxGrid, IBCustomDataSet, IBQuery,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
  dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin,
  dxSkinSilver, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter;

type
  TfmSearchPeople = class(TdlgRoot)
    rgCriteria: TRadioGroup;
    dbgClients: TcxGrid;
    dbgClientsDBTableView1: TcxGridDBTableView;
    dbgClientsLevel1: TcxGridLevel;
    dbgClientsDBTableView1PLASTNAME1: TcxGridDBColumn;
    dbgClientsDBTableView1PNAME1: TcxGridDBColumn;
    dbgClientsDBTableView1PPATRONYMIC1: TcxGridDBColumn;
    dbgClientsDBTableView1PDATEBIRTH1: TcxGridDBColumn;
    Panel2: TPanel;
    Label1: TLabel;
    edString: TEdit;
    sbFindClient: TSpeedButton;
    qSdocumentami: TIBQuery;
    IntegerField1: TIntegerField;
    IBStringField1: TIBStringField;
    IBStringField2: TIBStringField;
    IBStringField3: TIBStringField;
    DateField1: TDateField;
    IBStringField4: TIBStringField;
    IBStringField5: TIBStringField;
    DateTimeField1: TDateTimeField;
    DateTimeField2: TDateTimeField;
    IBStringField6: TIBStringField;
    IBStringField7: TIBStringField;
    IntegerField2: TIntegerField;
    IBStringField8: TIBStringField;
    IBStringField9: TIBStringField;
    qPeopleSearch: TIBQuery;
    qPeopleSearchPID: TIntegerField;
    qPeopleSearchPNAME: TIBStringField;
    qPeopleSearchPLASTNAME: TIBStringField;
    qPeopleSearchPPATRONYMIC: TIBStringField;
    qPeopleSearchPDATEBIRTH: TDateField;
    qPeopleSearchPSEX: TIntegerField;
    qPeopleSearchPNOTE: TIBStringField;
    qPeopleSearchPUSERENTER: TIBStringField;
    qPeopleSearchPTIMEENTER: TDateTimeField;
    qPeopleSearchPUSEREDIT: TIBStringField;
    qPeopleSearchPTIMEEDIT: TDateTimeField;
    qPeopleSearchPISDELETE: TIntegerField;
    qPeopleSearchPP: TIBStringField;
    procedure sbFindClientClick(Sender: TObject);
    procedure qPeopleSearch1BeforeOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSearchPeople: TfmSearchPeople;

implementation
uses dbinv;
{$R *.dfm}

procedure TfmSearchPeople.qPeopleSearch1BeforeOpen(DataSet: TDataSet);
begin
//qPeopleSearch.ParamByName('LN').AsString:= AnsiUpperCase(edString.Text);

end;

procedure TfmSearchPeople.sbFindClientClick(Sender: TObject);
begin
  if qPeopleSearch.Active then qPeopleSearch.Close;
  qPeopleSearch.Open;
end;

end.

